1 REM:PROGRAM BY JACK VANDER WHITE BASEDON A ROUTINE BY M.GARMSZEGHY PUBLISHED
2 REM:IN TRANSACTOR MAGAZINE 12/88.
3 PRINTCHR$(147):IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60
5 A$="---------------------------------------"
10 PRINT:PRINT A$
20 PRINT"THIS DISABLES OR ENABLES THE IO RESET"
30 PRINT"ON A PARTITIONED 1581. DO NOT USE"
40 PRINT"THIS ON ANY OTHER DISK DRIVE."
50 PRINT A$:INPUT"DEVICE # OF 1581";DV
60 PRINT"WHAT DO YOU WANT TO DO ?"
70 PRINT"          1[146] DISABLE RESET"
80 PRINT"          2[146] ENABLE RESET":INPUT R$
90 ON VAL(R$)GOTO 100,200
100 OPEN15,DV,15:PRINT#15,"M-W";CHR$(152);CHR$(1);CHR$(2);CHR$(123);CHR$(128)
110 CLOSE 15:NEW
200 OPEN15,DV,15:PRINT#15,"U:";
210 CLOSE 15:NEW